#Include 'Protheus.ch'
#Include 'Rwmake.ch'
#Include 'Font.ch'
#Include 'Colors.ch'
#Include 'MsmGAdd.ch'
#Include 'TopConn.ch'

#Define CR chr(13) &&carriage return

User Function ttt()
	
	Local dMesAno
	
	Alert(AnoMes(dMesAno))
	Alert(AnoMes(dMesAno+31))

Return aDados

